home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #3 / Commodore_Disk_User_Vol.4_3_1991_-.d64 / open sys ka43_5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  52 lines
  1. 60 rem" ka43/5 open system 11-feb-90 by k. aanestad, oslo
  2. 70 [150] [165]h(x)[178][181](x[173]256):[150] [165]l(x)[178]x[171][181](x[173]256)[172]256
  3. 80 [150] [165]dek(x)[178][194](x)[170]256[172][194](x[170]1):l[178]2555:ll[178]251:lh[178]9
  4. 90 [151] 53281,6:[153]"loadswaiterial cbm or pwaitarallel
  5. 100 input"centronics  printer       s[157][157][157]";p$:p=0:if p$="p"thenp=1:goto130
  6. 110 print"printer is set for
  7. 120 [133]"cwaitommodore-ascii or awaitscii  ccmdcmdcmd";pe$:pe[178][198](pe$)
  8. 130 wl[178][165]dek(55)[171]l:[133]"ka43 at top of basic ram  ycmdcmdcmd";a$
  9. 140 [139]a$[178]"y"[137]160
  10. 150 [133]"ka43  start  49152cmdcmdcmdcmdcmdcmdcmd";wl
  11. 160 wh[178]wl[170]l[171]ll:vh[178][165]dek(45)[171]ll:b[178][165]l(wl)
  12. 170 [139] b[178]252 [176] b[178]250 [176] b[178]174 [176] b[178]37 [176] b[178]241 [176] b[178]202 [176] b[178]25 [137]400
  13. 180 [151]90,[165]l(vh):[151]91,[165]h(vh)
  14. 190 [151]88,[165]l(wh):[151]89,[165]h(wh)
  15. 200 [151]782,ll:[151]781,lh[170]1:[158] 41964
  16. 210 [153]"restart  ka43  with: sys";wl
  17. 220 [153]:[139]wl[178]38405 [137]240
  18. 230 [129]x[178]1[164]107:[135]a,b,c:[151]wl[170]a,[165]l(wl[170]b):[151]wl[170]a[170]c,[165]h(wl[170]b):[130]
  19. 240 [139] p[178]1 [137] 310
  20. 260 [151]wl[170]398,104:[151]wl[170]399,24:[151]wl[170]400,144:[151]wl[170]401,198
  21. 270 [151]wl[170]498,44:[151]wl[170]512,24:[151]wl[170]540,44:[151]wl[170]543,24
  22. 280 [151]wl[170]80,83:[151]wl[170]1536,24:[151]wl[170]1623,24
  23. 290 [151]wl[170]187,227:[151]wl[170]188,168
  24. 300 [139] pe[178]67 [167] [151]wl[170]1606,76[170]128:[151]wl[170]227,3:[151]wl[170]1731,76[170]128
  25. 310 [143]" pokewl+1711,234:rem for one to one graphics
  26. 315 if wl+l=fndek(55) then wl=wl+7
  27. 320 syswl:print"[153]":_b0"ka43":print"[154]_x"chr$(34)"help*":print"[145][145][145][145]":new:end
  28. 400 print" please relocate [146]":end
  29. 500 data 003,100,1,026,072,2,033,003,1,036,004,1,052,005,1
  30. 510 data 058,006,1,116,005,1,224,005,1,230,337,2,247,346,1
  31. 520 data 253,347,1,262,474,2,279,491,1,285,492,1,294,526,2
  32. 530 data 304,565,2,321,580,1,327,581,1,352,227,1,451,226,1
  33. 540 data 469,226,1,496,226,1,583,526,1,602,227,1,067,228,1
  34. 550 data 152,589,1,159,624,1,166,665,1,622,228,1,533,227,1
  35. 560 data 842,1727,1,847,1726,1,874,1252,1,910,1084,1,925,1191,1
  36. 570 data 950,1709,1,958,1434,1,1051,1728,1,1109,1726,1,1116,1727,1
  37. 580 data 1296,226,1,1356,396,1,1389,396,1,1392,1233,1,1403,1468,1
  38. 590 data 1414,1446,1,1425,1443,1,1429,1566,1,1440,1131,1,1474,396,1
  39. 600 data 1452,1725,1,1483,1047,1,1501,1726,1,1507,1727,1,1513,776,1
  40. 610 data 1523,1737,1,1526,396,1,1618,776,1,1715,1729,1,1718,396,1
  41. 620 data 1750,1806,1,1764,1568,1,1812,1047,1,1822,1047,1,1841,1252,1
  42. 630 data 1848,1517,1,1872,682,1,1875,2370,1,1878,1884,1,1922,1645,1
  43. 640 data 1989,2022,2,2006,2066,1,2012,2067,1,2054,1763,1,2099,1446,1
  44. 650 data 2102,1428,1,2125,2149,1,2158,1564,1,2179,986,1,2226,396,1
  45. 660 data 2252,1573,1,2259,1517,1,2297,2307,2,2326,2351,1,2491,0,-10
  46. 670 data 2509,2554,-10,2548,2279,1,357,857,1,499,1668,1,510,1573,1
  47. 680 data 616,1606,1,619,1573,1,538,1257,1,541,1547,1,507,776,1
  48. 690 data 138,1394,1,173,1850,1,180,2107,1,187,1987,1,194,2151,1
  49. 700 data 201,2262,1,851,1131,1,913,1084,1,1094,1728,1,1491,1252,1
  50. 710 data 145,1741,1,502,227,1
  51. 800 rem" mc-tail of 2555 bytes
  52.